home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / DOSVER.DEM < prev    next >
Text File  |  1994-07-02  |  295b  |  22 lines
  1. program DosVerSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    HiVerNum,
  7.    LoVerNum : byte;
  8.  
  9. begin
  10.   Color( 7, 0 );
  11.   clrscr;
  12.  
  13.   DosVer( HiVerNum, LoVerNum );   { Call GetDosVer procedure }
  14.  
  15.   writeln;
  16.   writeln( 'Now Running DOS version ', HiVerNum, '.', LoVerNum );
  17.  
  18.   GetEnter;
  19. end.
  20.  
  21.  
  22.